diff --git a/libsrc/geos-common/conio/cgetc.s b/libsrc/geos-common/conio/cgetc.s
index 94fd55ef0..2c0f19a51 100644
--- a/libsrc/geos-common/conio/cgetc.s
+++ b/libsrc/geos-common/conio/cgetc.s
@@ -7,7 +7,7 @@
 ; unsigned char cgetc (void);
 
 	    .export _cgetc
-	    .import cursor
+	    .import cursor, _PromptOff
 	    .importzp cursor_x, cursor_y
 
 	    .include "jumptab.inc"
@@ -33,15 +33,7 @@ L0:	jsr GetNextChar
 	tax
 	beq L0
 	pha
-
-; from 'The Hitchhiker's Guide To GEOS'
-	php
-	sei
-	jsr PromptOff
-	lda #0
-	sta alphaFlag
-	plp
-
+	jsr _PromptOff
 	pla
 	ldx #0
 	rts
diff --git a/libsrc/geos-common/mousesprite/promptoff.s b/libsrc/geos-common/mousesprite/promptoff.s
index 741bb629b..9b63b6672 100644
--- a/libsrc/geos-common/mousesprite/promptoff.s
+++ b/libsrc/geos-common/mousesprite/promptoff.s
@@ -8,5 +8,14 @@
 	    .export _PromptOff
 
 	    .include "jumptab.inc"
+	    .include "geossym.inc"
 
-_PromptOff	= PromptOff
+_PromptOff:
+; from 'The Hitchhiker's Guide To GEOS'
+	php
+	sei
+	jsr PromptOff
+	lda #0
+	sta alphaFlag
+	plp
+	rts