# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406412121 25200
# Node ID 14b4e540af2820d9043c39cd0dd6a0afcf0f7d66
# Parent  dcb495cf2b97448b2badf58b16556d754d9e258b
Properly null terminate result of from:withLength

diff -r dcb495cf2b97 -r 14b4e540af28 modules/string.tp
--- a/modules/string.tp	Sat Jul 26 15:01:38 2014 -0700
+++ b/modules/string.tp	Sat Jul 26 15:02:01 2014 -0700
@@ -219,6 +219,7 @@
 		memcpy: (ret data) data + start clampedLen
 		ret len!: clampedLen
 		ret bytes!: clampedLen
+		(ret data) set: clampedLen 0
 		ret
 	}