--- a/modules/string.tp	Fri Aug 09 04:29:37 2013 -0700
+++ b/modules/string.tp	Fri Aug 09 04:57:21 2013 -0700
@@ -2,7 +2,7 @@
 	llProperty: len withType: uint32_t
 	llProperty: bytes withType: uint32_t
 	llProperty: data withType: (char ptr)
-	
+
 	llMessage: length withVars: {
 		intret <- (obj_int32 ptr)
 	} andCode: {
@@ -10,7 +10,7 @@
 		intret num!: len
 		intret
 	}
-	
+
 	llMessage: byte_length withVars: {
 		intret <- (obj_int32 ptr)
 	} andCode: {
@@ -18,7 +18,7 @@
 		intret num!: bytes
 		intret
 	}
-	
+
 	llMessage: EQ_ withVars: {
 		argb <- (string ptr)
 	} andCode: :argb {
@@ -26,7 +26,7 @@
 			true
 		}
 	}
-	
+
 	llMessage: NEQ_ withVars: {
 		argb <- (string ptr)
 	} andCode: :argb {
@@ -34,16 +34,16 @@
 			true
 		}
 	}
-	
+
 	llMessage: print withVars: {} andCode: {
 		fwrite: data 1 bytes stdout
 		self
 	}
-	
+
 	llMessage: string withVars: {} andCode: {
 		self
 	}
-	
+
 	llMessage: CAT_ withVars: {
 		argbo <- (object ptr)
 		argb <- (string ptr)
@@ -58,7 +58,7 @@
 		memcpy: (out data) + bytes (argb data) (argb bytes) + 1
 		out
 	}
-	
+
 	llMessage: byte withVars: {
 		index <- (obj_int32 ptr)
 		intret <- (obj_int32 ptr)
@@ -67,7 +67,7 @@
 		intret num!: (if: (index num) < bytes { data get: (index num) } else: {0})
 		intret
 	}
-	
+
 	llMessage: int32 withVars: {
 		intret <- (obj_int32 ptr)
 	} andCode: {
@@ -75,7 +75,7 @@
 		intret num!: (atoi: data)
 		intret
 	}
-	
+
 	llMessage: hash withVars: {
 		intret <- (obj_int32 ptr)
 		i <- uint32_t
@@ -93,4 +93,6 @@
 		}
 		intret
 	}
+
+	isInteger? <- { false }
 }