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 db83fbaf..99e9cb34 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -436,7 +436,7 @@ kcpPage(htPage,junk) ==
conform := htpProperty(htPage,'conform)
conname := opOf conform
page := htInitPage(['"Parents of ",:heading],htCopyProplist htPage)
- parents := parentsOf conname --was listSort(function GLESSEQP, =this)
+ parents := getConstructorParentsFromDB conname
if domname then
parents := applySubst(pairList(conform.args,domname.args),parents)
htpSetProperty(htPage,'cAlist,parents)