--- phonet.cc-orig	Wed Feb  9 07:55:25 2000
+++ phonet.cc	Thu Sep 21 01:22:26 2000
@@ -255,8 +255,8 @@
     /**            otherwise:  error            **/
 
 
-    int  i,j,k,n,p,z;
-    int  k0,n0,p0,z0;
+    int  i,j,k=0,n,p,z;
+    int  k0,n0,p0=-333,z0;
     int len = strlen(inword)+1;
     char word[len];
     char c, c0;
@@ -475,7 +475,7 @@
         } /**  end of while (parms.rules[n][0] == c)  **/
       } /**  end of if (n >= 0)  **/
       if (z0 == 0) {
-        if (!p0 && k &&  j < len-1  &&  c != '\0'
+        if (k && (assert(p0!=-333),!p0) &&  j < len-1  &&  c != '\0'
            && (!parms.collapse_result  ||  j == 0  ||  target[j-1] != c)){
            /**  condense only double letters  **/
           target[j] = c;