(PA): 'Save (As)' command did not write keyword 'Tape:' to file.

libraries/ObjectIO/ObjectIO Examples/turing/tmfile.icl

@@ -40,7 +40,7 @@ instance <<< Transition where
 instance <<< Tape where
 	(<<<) :: !*File !Tape -> *File
 	(<<<) file {content}
-		  = file<<<LimitContents content
+		  = file<<<"Tape:\n"<<<LimitContents content
 		  where
 			LimitContents :: !String -> String
 			LimitContents cont