whichbas: cmd token 0x59: PROCEDURE doesn't exist in BXL, only BXE.

1 files changed, 6 insertions, 2 deletions

diff --git a/whichbas.c b/whichbas.c
index 3459d06..be21435 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -232,9 +232,13 @@ CALLBACK(handle_cmd) {
 				remove_type(BT_BXE);
 			}
 			break;
-      case 0x59: /* TEXT (1st arg is number), PROCEDURE (arg is string const (not var!)) */
+		case 0x59: /* TEXT or PROCEDURE */
+			/* Turbo: TEXT (1st arg is number),
+            BXL: invalid token,
+            BXE: PROCEDURE (arg is string const (not var!)) */
 			if(nexttok == OP_STRCONST) {
-				remove_type(BT_TURBO);
+				/* this token doesn't seem to be valid in BXL at all */
+				remove_type(BT_TURBO | BT_BXL);
 			} else {
 				remove_type(BT_BXL_BXE);
 			}