diff --git a/client/basic/gopherd b/client/basic/gopherd
index 9c55cee..5142e7a 100644
Binary files a/client/basic/gopherd and b/client/basic/gopherd differ
diff --git a/client/basic/gopherd.bas b/client/basic/gopherd.bas
index 9c55cee..37e3223 100644
Binary files a/client/basic/gopherd.bas and b/client/basic/gopherd.bas differ
diff --git a/client/basic/kipperbas.d64 b/client/basic/kipperbas.d64
index 2536416..a885ab0 100644
Binary files a/client/basic/kipperbas.d64 and b/client/basic/kipperbas.d64 differ
diff --git a/client/basic/kipperbas.s b/client/basic/kipperbas.s
index 4cb569e..4e9e8d2 100644
--- a/client/basic/kipperbas.s
+++ b/client/basic/kipperbas.s
@@ -556,14 +556,14 @@ print:
 
 extract_string:
   jsr FRMEVL
-  jsr $AD8F   ;check result is a string, if not create type mismatch error
-  ldy $19 ;temp string created by FRMEVL
-  sty param_length
+  jsr FRESTR  ;if not string, will create type mismatch error
+  sta param_length
+  tay
   lda #0
   sta transfer_buffer,y  
   dey
 @loop:
-  lda ($1a),y
+  lda ($22),y
   sta transfer_buffer,y  
   dey  
   bpl @loop
@@ -1327,7 +1327,6 @@ tcpblat_keyword:
   ldx  #<transfer_buffer
   ldy #>transfer_buffer
   lda param_length
-
   jsr SETNAM
   lda #$02      ; file number 2
   ldx $BA       ; last used device number