diff --git a/src/GF/Visualization/VisualizeGrammar.hs b/src/GF/Visualization/VisualizeGrammar.hs
index 5c920e36d..5f5492b65 100644
--- a/src/GF/Visualization/VisualizeGrammar.hs
+++ b/src/GF/Visualization/VisualizeGrammar.hs
@@ -39,7 +39,9 @@ toNode i m = Node {
 			  M.MTAbstract -> (GrAbstract, Nothing)
 			  M.MTConcrete i -> (GrConcrete, Just (prIdent i))
 			  M.MTResource -> (GrResource, Nothing)
-			  -- FIXME: transfer and resource
+			  M.MTTransfer _ _ -> 
+			      -- FIXME
+			      error "Can't visualize transfer modules yet"
     
 openName :: M.OpenSpec Ident -> String
 openName (M.OSimple q i) = prIdent i