diff --git a/src/compiler/GF/Compile/Compute/Concrete.hs b/src/compiler/GF/Compile/Compute/Concrete.hs
index 94394fbeb..593b6db07 100644
--- a/src/compiler/GF/Compile/Compute/Concrete.hs
+++ b/src/compiler/GF/Compile/Compute/Concrete.hs
@@ -518,7 +518,8 @@ value2string =
       where
         all_capit = map toUpper
 --  value2string (b,f,ws) (VAlts vd vas) =
-    value2string st _     = st
+    value2string (Const _) _  = RunTime
+    value2string st        _  = st
 
 string2value s =
   case words s of
diff --git a/testsuite/compiler/compute/predef.gfs b/testsuite/compiler/compute/predef.gfs
index 6387ea14c..e61f129f2 100644
--- a/testsuite/compiler/compute/predef.gfs
+++ b/testsuite/compiler/compute/predef.gfs
@@ -1,6 +1,7 @@
 i -retain prelude/Predef.gfo
 cc length "abcd"
 cc length ("ab"++"cd")
+cc length nonExist
 cc <\x -> length x : Str -> Int>
 cc take 2 "abcd"
 cc drop 2 "abcd"
diff --git a/testsuite/compiler/compute/predef.gfs.gold b/testsuite/compiler/compute/predef.gfs.gold
index ee14f8659..778ed9a97 100644
--- a/testsuite/compiler/compute/predef.gfs.gold
+++ b/testsuite/compiler/compute/predef.gfs.gold
@@ -1,5 +1,6 @@
 4
 5
+Predef.length Predef.nonExist
 \v0 -> Predef.length v0
 "ab"
 "cd"