Add CREATE name to hash immediately

src/toolsrc/plforth.pla

@@ -1242,6 +1242,7 @@ def _create_#0
   _dictaddw_(heapmark + 5) // Pointer to rest of PFA
   _dictaddb_($5C)          // RET
   _dictaddw_(0)            // reserved word for DOES>
+  addhash(vlist)
   //
   // 9 bytes after PFA, data follows...
   //
@@ -1260,7 +1261,6 @@ def _itcdoes_(a)#0
   ^(_ffa_(vlist))     = ^(_ffa_(vlist)) | itc_flag
   *(_cfa_(vlist))     = @_dodoes_
   *(_pfa_(vlist))     = a // Fill in DOES code address
-  addhash(vlist)
 end
 def _pbcdoes_(a)#0
   //
@@ -1268,7 +1268,6 @@ def _pbcdoes_(a)#0
   //
   ^(_pfa_(vlist) + 6) = $C4    // JUMP DOES> directly
   *(_pfa_(vlist) + 7) = a
-  addhash(vlist)
 end
 def _does_#0
   if state & comp_itc_flag
@@ -1309,9 +1308,6 @@ def _exit_#0
     _dictaddw_(0)
   elsif state & comp_pbc_flag
     _dictaddb_($5C) // RET
-  else
-    puts("; Not compiling\n")
-    _quit_
   fin
 end
 def _semi_#0