diff --git a/next-lib/src/scandinavian/NounScand.gf b/next-lib/src/scandinavian/NounScand.gf
index 81516ef3a..dd6c39742 100644
--- a/next-lib/src/scandinavian/NounScand.gf
+++ b/next-lib/src/scandinavian/NounScand.gf
@@ -52,8 +52,14 @@ incomplete concrete NounScand of Noun =
       det = quant.det
       } ;
 
-    DetQuant quant num = {
-      s = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++ 
+    DetQuant quant num = 
+      let 
+        md : Bool -> Bool = \b -> case quant.det of {
+         DDef _ => orB b num.isDet ;
+         _ => False
+         }
+      in {
+      s = \\b,g => quant.s ! num.n ! b ! md b ! g ++ 
                    num.s ! g ;
       n = num.n ;
       det = quant.det