1.1 --- a/src/Pure/General/path.ML	Wed Jun 29 23:43:48 2011 +0200
     1.2 +++ b/src/Pure/General/path.ML	Thu Jun 30 00:01:00 2011 +0200
     1.3 @@ -163,7 +163,7 @@
     1.4  (* base element *)
     1.5  
     1.6  fun split_path f (Path (Basic s :: xs)) = f (Path xs, s)
     1.7 -  | split_path _ path = error ("Cannot split path into dir/base: " ^ quote (implode_path path));
     1.8 +  | split_path _ path = error ("Cannot split path into dir/base: " ^ print path);
     1.9  
    1.10  val dir = split_path #1;
    1.11  val base = split_path (fn (_, s) => Path [Basic s]);