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 6eafe370..f2b87dd3 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -131,7 +131,7 @@ kArgPage(htPage,arg) ==
[op,:args] := conform := htpProperty(htPage,'conform)
domname := htpProperty(htPage,'domname)
heading := htpProperty(htPage,'heading)
- source := getConstructorModemapFromDB(op).mmSource
+ source := getConstructorModemap(op).mmSource
n := position(arg,args)
typeForm := sublisFormal(args,source . n)
domTypeForm := mkDomTypeForm(typeForm,conform,domname)