diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index bd7ab6eb..dcd30a58 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -13,7 +13,7 @@
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | frc     |     | B   |     | v   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
+// | frc     |     | B   |     | v   |     | D   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -430,6 +430,22 @@ phoneme v
   FMT(voc/v) addWav(vocw/v)
 endphoneme
 
+phoneme D
+  vcd dnt frc
+  ipa ð
+  lengthmod 6
+  Vowelout f1=0  f2=1700 -300 300  f3=-100 60  len=50
+
+  IF KlattSynth THEN
+    Vowelin f1=0 f2=1290 -300 300 f3=0 0
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    FMT(voc/dh_) addWav(vocw/dh)
+  ENDIF
+  FMT(voc/dh) addWav(vocw/dh)
+endphoneme
+
 // approximant
 
 phoneme P
diff --git a/phsource/phonemes b/phsource/phonemes
index 4db1c0a7..e4afa595 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -750,22 +750,10 @@ phoneme v#
 endphoneme
 
 phoneme D // **th**is
-  vcd dnt frc
+  import_phoneme ipa/D
   voicingswitch T
-  lengthmod 6
-  Vowelout f1=0  f2=1700 -300 300  f3=-100 60  len=50
-
-  IF KlattSynth THEN
-    Vowelin f1=0 f2=1290 -300 300 f3=0 0
-  ENDIF
-
-  IF nextPh(isPause2) THEN
-    FMT(voc/dh_) addWav(vocw/dh)
-  ENDIF
-  FMT(voc/dh) addWav(vocw/dh)
 endphoneme
 
-
 phoneme z
   vcd alv frc sib
   voicingswitch s