diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 95fea85d..70c52ddd 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -15,7 +15,7 @@
 // | sib afr |     |     |     |     |     |     |     |     | tS) | dZ) |     |     | ts\)| dz\)|     |     |     |     |     |     |     |     |     |     |
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | sib frc |     |     |     |     |     |     | s   | z   |     | Z   |     | z`  |     | z\  |     |     |     |     |     |     |     |     |     |     |
+// | sib frc |     |     |     |     |     |     | s   | z   | S   | Z   |     | z`  |     | z\  |     |     |     |     |     |     |     |     |     |     |
 // | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     |     | j\  |     | G   |     | R   |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
@@ -604,6 +604,19 @@ phoneme z
   FMT(voc/z) addWav(ufric/s_, 85)
 endphoneme
 
+phoneme S
+  vls pla sib frc
+  ipa ʃ
+  lengthmod 3
+  Vowelin  f1=0  f2=2100 100 300  f3=-100 80
+  Vowelout f1=0  f2=2100 100 300  f3=-100 80
+
+  IF nextPh(isPause) THEN
+    WAV(ufric/sh_)
+  ENDIF
+  WAV(ufric/sh)
+endphoneme
+
 phoneme Z
   vcd pla sib frc
   ipa ʒ
diff --git a/phsource/phonemes b/phsource/phonemes
index 4ae7b791..4829da69 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -730,19 +730,10 @@ phoneme s
 endphoneme
 
 phoneme S // **sh**op
-  vls pla frc sib
+  import_phoneme ipa/S
   voicingswitch Z
-  lengthmod 3
-  Vowelin  f1=0  f2=2100 100 300  f3=-100 80
-  Vowelout f1=0  f2=2100 100 300  f3=-100 80
-
-  IF nextPh(isPause) THEN
-    WAV(ufric/sh_)
-  ENDIF
-  WAV(ufric/sh)
 endphoneme
 
-
 phoneme s.
   vls pla frc sib
   ipa ʂ