diff --git a/lib/modules/LR.pmod/parser.pike b/lib/modules/LR.pmod/parser.pike
index f379e981b646df88c80743af080a09b7e8cc9dbf..95493bd897dd515408cbe2bd4b4b1dfac0154ef3 100644
--- a/lib/modules/LR.pmod/parser.pike
+++ b/lib/modules/LR.pmod/parser.pike
@@ -1,5 +1,5 @@
 /*
- * $Id: parser.pike,v 1.21 2000/02/13 19:29:33 grubba Exp $
+ * $Id: parser.pike,v 1.22 2000/02/16 22:11:41 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.21 2000/02/13 19:29:33 grubba Exp $
+//. RCSID:	$Id: parser.pike,v 1.22 2000/02/16 22:11:41 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());
   }
-  error(sprintf("Cast to %s not supported\n", type));
+  throw(({ sprintf("Cast to %s not supported\n", type), backtrace() }));
 }
 
 /* Here come the functions that actually do some work */