--- parser3/src/include/Attic/pa_vstring.h	2001/02/25 13:23:01	1.5
+++ parser3/src/include/Attic/pa_vstring.h	2001/03/06 15:02:47	1.7
@@ -1,22 +1,27 @@
 /*
-  $Id: pa_vstring.h,v 1.5 2001/02/25 13:23:01 paf Exp $
+  $Id: pa_vstring.h,v 1.7 2001/03/06 15:02:47 paf Exp $
 */
 
 #ifndef PA_VSTRING_H
 #define PA_VSTRING_H
 
+#include <stdlib.h>
+
 #include "pa_value.h"
 
 class VString : public Value {
 public: // Value
 
 	// all: for error reporting after fail(), etc
-	const char *type() const { return "String"; }
+	const char *type() const { return "string"; }
 	// string: value
 	String *get_string() { return &string; };
 	// string: value
 	//void put_string(String *astring) { string=astring; }
 
+	// string: value
+	double get_double() { return atof(string.cstr()); }
+
 public: // usage
 
 	VString(Pool& apool) : Value(apool),