diff --git a/src/Mima/Parse/Assembly/Weed/Statement.hs b/src/Mima/Parse/Assembly/Weed/Statement.hs
index 5798ab1..3ea77a9 100644
--- a/src/Mima/Parse/Assembly/Weed/Statement.hs
+++ b/src/Mima/Parse/Assembly/Weed/Statement.hs
@@ -93,6 +93,7 @@ addAlmostWord :: WithOffset a -> AlmostWord Address -> SWeed ()
 addAlmostWord thing aw = do
   addr <- toNextFree thing
   modifyResult (\r -> r{wrMemory = Map.insert addr aw (wrMemory r)})
+  modify (\s -> s{wsOccupied = True})
 
 addLabel :: WithOffset a -> LabelName -> SWeed ()
 addLabel thing l = do