X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/a8cb8832af32fcbc5d5687e4b40af7ac05d6c48f..260ffd61184773c047eadc76d8dbc35d5e5ea5c8:/ice-9/format.scm

diff --git a/ice-9/format.scm b/ice-9/format.scm
index 98e2216e4..63d83af9a 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -1017,7 +1017,7 @@
 			(commawidth (format:par pars l 3 3 "commawidth")))
 		    (if mincol
 			(let ((numlen numstr-len)) ; calc. the output len of number
-			  (if (and (memq modifier '(at colon-at)) (> number 0))
+			  (if (and (memq modifier '(at colon-at)) (>= number 0))
 			      (set! numlen (+ numlen 1)))
 			  (if (memq modifier '(colon colon-at))
 			      (set! numlen (+ (quotient (- numstr-len 
@@ -1027,7 +1027,7 @@
 			  (if (> mincol numlen)
 			      (format:out-fill (- mincol numlen) padchar))))
 		    (if (and (memq modifier '(at colon-at))
-			     (> number 0))
+			     (>= number 0))
 			(format:out-char #\+))
 		    (if (memq modifier '(colon colon-at)) ; insert comma character
 			(let ((start (remainder numstr-len commawidth))