diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 394da785..95fea85d 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -15,7 +15,7 @@
 // | sib afr |     |     |     |     |     |     |     |     | tS) | dZ) |     |     | ts\)| dz\)|     |     |     |     |     |     |     |     |     |     |
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | sib frc |     |     |     |     |     |     |     | z   |     | Z   |     | z`  |     | z\  |     |     |     |     |     |     |     |     |     |     |
+// | sib frc |     |     |     |     |     |     | s   | z   |     | Z   |     | z`  |     | z\  |     |     |     |     |     |     |     |     |     |     |
 // | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     |     | j\  |     | G   |     | R   |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
@@ -572,6 +572,21 @@ phoneme D
   FMT(voc/dh) addWav(vocw/dh)
 endphoneme
 
+phoneme s
+  vls alv sib frc
+  ipa s
+  lengthmod 3
+  Vowelin  f1=0  f2=1700 -300 300  f3=-100 80
+  Vowelout f1=0  f2=1700 -300 250  f3=-100 80  rms=20
+
+  IF nextPh(isPause) THEN
+    WAV(ufric/s_)
+  ELIF nextPh(p) OR nextPh(t) OR nextPh(k) THEN
+    WAV(ufric/s!)
+  ENDIF
+  WAV(ufric/s)
+endphoneme
+
 phoneme z
   vcd alv sib frc
   ipa z
diff --git a/phsource/phonemes b/phsource/phonemes
index df657ab1..4ae7b791 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -725,21 +725,10 @@ phoneme T   // **th**in
 endphoneme
 
 phoneme s
-  vls alv frc sib
+  import_phoneme ipa/s
   voicingswitch z
-  lengthmod 3
-  Vowelin  f1=0  f2=1700 -300 300  f3=-100 80
-  Vowelout f1=0  f2=1700 -300 250  f3=-100 80  rms=20
-
-  IF nextPh(isPause) THEN
-    WAV(ufric/s_)
-  ELIF nextPh(p) OR nextPh(t) OR nextPh(k) THEN
-    WAV(ufric/s!)
-  ENDIF
-  WAV(ufric/s)
 endphoneme
 
-
 phoneme S // **sh**op
   vls pla frc sib
   voicingswitch Z