             `(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

(immigrate 'midje.unprocessed)
(immigrate 'midje.ideas.arrow-symbols)

;;; Conversions to unprocessed form

;; I want to use resolve() to compare calls to fake, rather than the string
