X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=vm%2Fslot_visitor.hpp;h=bd2b8483982ef9eaf4040805653d9ffcfe39d39e;hp=4fda73814072c6030faec1ed437c20ea5b256759;hb=c31530caecbdb96384603fd11ad5a356897474f0;hpb=139c9ca38c537c8db371944cd04d13118019363f

diff --git a/vm/slot_visitor.hpp b/vm/slot_visitor.hpp
index 4fda738140..bd2b848398 100755
--- a/vm/slot_visitor.hpp
+++ b/vm/slot_visitor.hpp
@@ -65,13 +65,13 @@ cell object::binary_payload_start(Fixup fixup) const
 		return 0;
 	/* these objects have some binary data at the end */
 	case WORD_TYPE:
-		return sizeof(word) - sizeof(cell) * 3;
+		return sizeof(word) - sizeof(cell);
 	case ALIEN_TYPE:
 		return sizeof(cell) * 3;
 	case DLL_TYPE:
 		return sizeof(cell) * 2;
 	case QUOTATION_TYPE:
-		return sizeof(quotation) - sizeof(cell) * 2;
+		return sizeof(quotation) - sizeof(cell);
 	case STRING_TYPE:
 		return sizeof(string);
 	/* everything else consists entirely of pointers */