diff --git a/scan/scan b/scan/scan
index c74599a785a466cea974cab4f9e765b939a9a8cd..d79833240497c3cdc53da69bd41fa3cf1c11cd7e 100755
--- a/scan/scan
+++ b/scan/scan
@@ -310,14 +310,16 @@ sub scan_psfonts() {
 	save exch
 	findfont
 	% Parse FontInfo and find version
-	dup /FontInfo get
-		(%K% /Version) =
-		dup /Version known { dup /Version get == } {
-			dup /version known { dup /version get == } {
-				(???) ==
+	dup /FontInfo known {
+		dup /FontInfo get
+			(%K% /Version) =
+			dup /Version known { dup /Version get == } {
+				dup /version known { dup /version get == } {
+					(???) ==
+				} ifelse
 			} ifelse
-		} ifelse
-		pop
+			pop
+	} { } ifelse
 	% Print Encoding
 	(%K% /Encoding) =
 	dup /Encoding known { dup /Encoding get == } { (???) == } ifelse