From 93ae853a4f88d084e13ccc4bf70a8db32b4205b7 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Thu, 9 Oct 2008 18:45:33 +0000
Subject: [PATCH] Bug fix

---
 glade-xml/glade-xml.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/glade-xml/glade-xml.lisp b/glade-xml/glade-xml.lisp
index 188faeb..450bd65 100644
--- a/glade-xml/glade-xml.lisp
+++ b/glade-xml/glade-xml.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: glade-xml.lisp,v 1.3 2006-09-28 10:21:29 espen Exp $
+;; $Id: glade-xml.lisp,v 1.4 2008-10-09 18:45:33 espen Exp $
 
 
 (in-package "GLADE-XML")
@@ -174,7 +174,7 @@
        as attributes = (rest (mklist tag))
        do (cond
 	   ((and (eq element :|child|) (not (eq (first body) :|placeholder|)))
-	    (let ((initargs (parse-properties (container-child-class class) (rest (second body)))))
+	    (let ((initargs (parse-properties (find-child-class class) (rest (second body)))))
 	      (add-child widget (build-widget (first body)) initargs)))
 
 	   ((eq element :|signal|)
-- 
2.11.0