diff --git a/ATTParser.hs b/ATTParser.hs
index 93d332e20b9771e148d9f88c460574c3716b5f2c..7dfda465109b75e1c58cdb25e17a8da025139e6a 100644
--- a/ATTParser.hs
+++ b/ATTParser.hs
@@ -60,6 +60,8 @@ preprocess ('\t':attr) = let (h, t) = break isSpace attr
                                        | otherwise      -> [Ref  $ (w x)]
                          (".long":x:_) | isNumber (w x) -> [Long $ read (w x)]
                                        | otherwise      -> [Ref  $ (w x)]
+                         (".word":x:_) | isNumber (w x) -> [Long $ read (w x)]
+                                       | otherwise      -> [Ref  $ (w x)]
                          (".space":x:_)| (w x) == "4"   -> [Long 0]
                                        | (w x) == "8"   -> [Quad 0]
                          (".ascii":x:_)             -> [Ascii $ read x]