From ad4542e0a85404bc38411060e5994ed11313a33a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 20 May 2011 05:08:05 +0000
Subject: more cleanup

---
 src/interp/br-prof.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/br-prof.boot')

diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot
index dfd58e59..c9eae539 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot
@@ -78,7 +78,7 @@ dbShowInfoOp(htPage,op,sig,alist) ==
     kind = 'category =>
       [makeDefaultPackageName symbolName conname,"$",:rest conform]
     conform
-  faTypes  := CDDAR getConstructorModemapFromDB conname
+  faTypes := getConstructorModemapFromDB(conname).mmSource
 
   conArgTypes := 
     applySubst(pairList($FormalMapVariableList,IFCDR conform),faTypes)
-- 
cgit v1.2.3