diff --git a/repository/Stamp.package/StampMedium.class/instance/readLine.st b/repository/Stamp.package/StampMedium.class/instance/readLine.st
index 7e46c46..24d13d6 100644
--- a/repository/Stamp.package/StampMedium.class/instance/readLine.st
+++ b/repository/Stamp.package/StampMedium.class/instance/readLine.st
@@ -5,9 +5,11 @@ readLine
 		[ stream atEnd or: [ endOfLine ] ] whileFalse: [ | char |
 			out position >= StampConstants maxHeaderLineLength
 				ifTrue: [ self error: 'Line too long' ]. 
-			char := encoder nextFromStream: stream.
-			char = Character cr
-				ifFalse: [ 
-					char = Character lf
-						ifTrue: [ endOfLine := true ]
-						ifFalse: [ out nextPut: char ] ] ] ]
\ No newline at end of file
+			(char := [ encoder nextFromStream: stream ] on: ZnIncomplete do: [ nil ])
+				ifNil: [ endOfLine := true ]
+				ifNotNil: [
+					char = Character cr
+						ifFalse: [ 
+							char = Character lf
+								ifTrue: [ endOfLine := true ]
+								ifFalse: [ out nextPut: char ] ] ] ] ]
\ No newline at end of file
diff --git a/repository/Stamp.package/TStampFrameWithBody.trait/properties.json b/repository/Stamp.package/TStampFrameWithBody.trait/properties.json
index 9f6aee3..703dbfd 100644
--- a/repository/Stamp.package/TStampFrameWithBody.trait/properties.json
+++ b/repository/Stamp.package/TStampFrameWithBody.trait/properties.json
@@ -1,5 +1,7 @@
 {
-	"name" : "TStampFrameWithBody",
 	"commentStamp" : "<historical>",
-	"category" : "Stamp-Core"
+	"classinstvars" : [ ],
+	"category" : "Stamp-Core",
+	"instvars" : [ ],
+	"name" : "TStampFrameWithBody"
 }
\ No newline at end of file