diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index ac4d499..7bf255a 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -1336,7 +1336,7 @@ def _is_(a)#0
       *_cfa_(dentry) = @_dodefer_
       *_pfa_(dentry) = a
     else // comp_pbc_flag
-      *_cfa_(dentry)       = _cfa_(dentry)
+      *_cfa_(dentry)       = _pfa_(dentry)
       ^_pfa_(dentry)       = JMP
       *(_pfa_(dentry) + 1) = *_cfa_(a)
     fin
@@ -1883,7 +1883,7 @@ def _see_#0
           break
         otherwise // ???
          pfa = @d_exit
-     wend
+      wend
       putc('$'); puth(pfa); putc(' ')
       w = *pfa
       while w