fix stack bug in does-comp

git-svn-id: https://forth-ev.de/repos/bigforth@1425 3b8d8251-53f3-0310-8f3b-fd1cb8370982

does-comp.fs

@@ -11,6 +11,6 @@
     does? IF
 	$68 c, here relon here 14 + ,
 	$68 c, here relon dup >body , cfa@ compile, here 5 - dup c@ 1+ swap c!
-	rdrop  EXIT  THEN ;
+	rdrop drop EXIT  THEN ;
 
 ' does, is 'cfa,