--- base/src/registry1.0/receipt_flat.tcl.orig	2008-10-13 23:34:15.000000000 -0400
+++ base/src/registry1.0/receipt_flat.tcl	2008-10-13 23:43:08.000000000 -0400
@@ -181,7 +181,9 @@
 
 		# Remove any line starting with #
 		while {[regexp "(^|\n)#.*\n(.*)\$" $receipt_contents match foo receipt_contents]} {}
-		array set receipt_$ref $receipt_contents
+		if { [catch {array set receipt_$ref $receipt_contents} rcpterr] } {
+			error "Malformed package receipt for $name $version $revision $variants: $rcpterr"
+		}
 	} else {
 		# This is old Images format