diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 26cfbc0c..3b297bc4 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -15,7 +15,7 @@
 // | sib frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | frc     |     | B   |     | v   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | apr     |     |     |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
+// | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | flp     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat flp |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -432,6 +432,18 @@ endphoneme
 
 // approximant
 
+phoneme P
+  vcd lbd apr
+  ipa ʋ
+  lengthmod 6
+  Vowelin  f1=0  f2=1000 -300 -200  f3=-300 100
+  Vowelout f1=0  f2=1000 -500 -300  f3=-300 60  len=50
+  IF nextPh(isPause2) THEN
+    FMT(voc/v#_)
+  ENDIF
+  FMT(voc/v#)
+endphoneme
+
 phoneme r\\
   vcd alv apr liquid rhotic
   ipa ɹ
diff --git a/phsource/phonemes b/phsource/phonemes
index 987336a1..4db1c0a7 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -744,20 +744,11 @@ phoneme v
   voicingswitch f
 endphoneme
 
-phoneme v#        // approximant, not fricative
-  vcd lbd frc
-  ipa ʋ
-  lengthmod 6
+phoneme v#
+  import_phoneme ipa/P
   voicingswitch f
-  Vowelin  f1=0  f2=1000 -300 -200  f3=-300 100
-  Vowelout f1=0  f2=1000 -500 -300  f3=-300 60  len=50
-  IF nextPh(isPause2) THEN
-    FMT(voc/v#_)
-  ENDIF
-  FMT(voc/v#)
 endphoneme
 
-
 phoneme D // **th**is
   vcd dnt frc
   voicingswitch T