--- format.scm.~1.23.~	2004-09-02 09:15:16.000000000 +1000
+++ format.scm	2004-09-02 09:27:37.000000000 +1000
@@ -194,10 +194,6 @@
 	  (let ((arg-pos (format:format-work fmt args))
 		(arg-len (length args)))
 	    (cond
-	     ((< arg-pos arg-len)
-	      (set! format:arg-pos (+ arg-pos 1))
-	      (set! format:pos (string-length fmt))
-	      (format:error "~a superfluous argument~:p" (- arg-len arg-pos)))
 	     ((> arg-pos arg-len)
 	      (set! format:arg-pos (+ arg-len 1))
 	      (display format:arg-pos)