aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-con.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r--src/interp/br-con.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot
index 9b781471..fbfbc6bf 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -190,7 +190,7 @@ kArgPage(htPage,arg) ==
[op,:args] := conform := htpProperty(htPage,'conform)
domname := htpProperty(htPage,'domname)
heading := htpProperty(htPage,'heading)
- source := CDDAR getConstructorModemapFromDB op
+ source := getConstructorModemapFromDB(op).mmSource
n := position(arg,args)
typeForm := sublisFormal(args,source . n)
domTypeForm := mkDomTypeForm(typeForm,conform,domname)