whichbas: fix bug in $PUT/BLOAD logic.

1 files changed, 1 insertions, 1 deletions

diff --git a/whichbas.c b/whichbas.c
index 6cb21c2..75867e1 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -372,7 +372,7 @@ CALLBACK(handle_end_stmt) {
 			if(comma_count) {
 				/* multiple args */
 				remove_type(BT_BXL_BXE);
-			} else if(program[last_cmd + 1] == OP_STRCONST) {
+			} else if(program[last_cmd_pos + 1] == OP_STRCONST) {
 				/* one arg, string const. XXX: check var type */
 				remove_type(BT_TURBO);
 			}