diff --git a/lib/modules/LR.pmod/parser.pike b/lib/modules/LR.pmod/parser.pike
index a95da3d68248f0e2e314216d6c1d5b2557351d3c..f379e981b646df88c80743af080a09b7e8cc9dbf 100644
--- a/lib/modules/LR.pmod/parser.pike
+++ b/lib/modules/LR.pmod/parser.pike
@@ -1,5 +1,5 @@
 /*
- * $Id: parser.pike,v 1.20 1999/10/10 00:49:11 noring Exp $
+ * $Id: parser.pike,v 1.21 2000/02/13 19:29:33 grubba Exp $
  *
  * A BNF-grammar in Pike.
  * Compiles to a LALR(1) state-machine.
@@ -9,7 +9,7 @@
 
 //.
 //. File:	parser.pike
-//. RCSID:	$Id: parser.pike,v 1.20 1999/10/10 00:49:11 noring Exp $
+//. RCSID:	$Id: parser.pike,v 1.21 2000/02/13 19:29:33 grubba Exp $
 //. Author:	Henrik Grubbstr�m (grubba@infovav.se)
 //.
 //. Synopsis:	LALR(1) parser and compiler.
@@ -432,7 +432,7 @@ mixed cast(string type)
   if (type == "string") {
     return(cast_to_string());
   }
-  throw ( ({ "Cast to "+type+" not supported\n", backtrace()[0..-2] }) );
+  error(sprintf("Cast to %s not supported\n", type));
 }
 
 /* Here come the functions that actually do some work */