diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 5bcc5dd1e..705b81ded 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -238,6 +238,10 @@ computeTerm gr = comp where
 
 checkNoArgVars :: Term -> Err Term
 checkNoArgVars t = case t of
-  Vr (IA _)  -> prtBad "cannot glue (+) term with run-time variable" t
-  Vr (IAV _) -> prtBad "cannot glue (+) term with run-time variable" t
+  Vr (IA _)  -> Bad $ glueErrorMsg $ prt t 
+  Vr (IAV _) -> Bad $ glueErrorMsg $ prt t 
   _ -> composOp checkNoArgVars t
+
+glueErrorMsg s = 
+  "Cannot glue (+) term with run-time variable" +++ s ++ "." ++++
+  "Use Prelude.bind instead."
diff --git a/src/Today.hs b/src/Today.hs
index a0a8c2fdc..f6bda46c7 100644
--- a/src/Today.hs
+++ b/src/Today.hs
@@ -1 +1 @@
-module Today where today = "Mon Nov 10 17:00:26 CET 2003"
+module Today where today = "Mon Nov 10 17:40:41 CET 2003"