diff --git a/src/zil/zap.mid b/src/zil/zap.mid
index 8aa5a457..23121bd4 100644
--- a/src/zil/zap.mid
+++ b/src/zil/zap.mid
@@ -264,7 +264,7 @@ NAMLOP:	ILDB	A,B
 NAMDON:	CAIE	A,^M
 	 CAIN	A,^J
 	  JRST	NOJCL
-	MOVEM   B,FILPTR        ;should be file spec start
+	MOVEM	B,FILPTR	;should be file spec start
 	ILDB	A,B
 	CAIL	A,40
 	 JRST	.-2
@@ -3792,9 +3792,17 @@ STRIN1:	ILDB C,B
 	JUMPE C,[POPJ P,]
 	JRST STRIN1
 
-NUMIN:	MOVEI B,42
-	AOS (P)
-	POPJ P,
+NUMIN:	AOS (P)
+	SETZ B,
+NUMIN1:	.IOT TYI,A
+	CAIN A,^M
+	 POPJ P,
+	CAIL A,"0
+	 CAILE A,"9
+	  SOS (P)
+	IMUL B,10.
+	ADDI B,-"0(A)
+	JRST NUMIN1
 
 NUMOUT:	MOVE A,C
 NUMOU1:	IDIV B,A