             `(do
                (defn ~name [& args#]
                  (let [pprint# (partial cl-format nil "~S")]
-                   (throw (user-error (str "#'" '~name 
-                                           " has no implementation, but it was called like this:"
-                                           line-separator
-                                           "(" '~name " " 
-                                           (join " " (map pprint# args#))
-                                           ")")))))
+                   (throw (user-error (format "#'%s has no implementation, but it was called like this:%s(%s %s)" 
+                                        '~name line-separator '~name (join " " (map pprint# args#)))))))
+             
                ;; A reliable way of determining if an `unfinished` function has since been defined.
                (alter-meta! (var ~name) assoc :midje/unfinished-fun ~name))))]
 




;;; Interface: production mode

(defonce

  *include-midje-checks* true)


;;; Interface: Main macros

(defmacro fake 
