--- a/src/HOL/Import/proof_kernel.ML Thu Oct 15 21:28:39 2009 +0200
+++ b/src/HOL/Import/proof_kernel.ML Thu Oct 15 23:10:35 2009 +0200
@@ -1909,7 +1909,7 @@
(thy,res)
end
-val spaces = String.concat o separate " "
+val spaces = space_implode " "
fun new_definition thyname constname rhs thy =
let