diff --git a/format-f.lsp b/format-f.lsp
index 674290f4898c7c30e747dc21dd1992d9ae86b488..a744d8e12a95221e9ba6e71c8cd5f68ccc27a7e9 100644
--- a/format-f.lsp
+++ b/format-f.lsp
@@ -25,7 +25,7 @@
      collect (list x type s1 s2 s3)))
   nil)
 
-(deftest format.f.2
+(deftest xoxoformat.f.2
   (let ((*print-readably* nil)
         (fn (formatter "~f")))
     (loop
@@ -536,7 +536,10 @@
   nil)
 
 (def-format-test format.f.45
-    "~0f" (1.1) "1.1")
+    "~2f" (1.1) "1.0")
+
+(def-format-test format.f.45b
+    "~3f" (1.1) "1.1")
 
 ;; This fails on ECL 15.3.7
 (def-format-test format.f.46