diff --git a/lib/src/scandinavian/NounScand.gf b/lib/src/scandinavian/NounScand.gf
index 4a5317e02..0bfedbea6 100644
--- a/lib/src/scandinavian/NounScand.gf
+++ b/lib/src/scandinavian/NounScand.gf
@@ -51,7 +51,10 @@ incomplete concrete NounScand of Noun =
       sp = \\b,g => quant.s ! num.n ! b ! True ! g ++ 
                     num.s ! g ++ ord.s ;
       n = num.n ;
-      det = DDef detDef ---- quant.det
+      det = case quant.det of {
+        DDef Def => DDef detDef ;
+        d => d
+        }
       } ;
 
     DetQuant quant num =