Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	2 Jan 2003 17:17:48 -0000	1.19
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	3 Jan 2003 10:58:57 -0000	1.20
@@ -204,7 +204,7 @@
 ad_proc -private apm_dependency_check {
     {-callback apm_dummy_callback}
     {-initial_install:boolean}
-    {-pkg_info_all}
+    {-pkg_info_all {}}
     spec_files
 } {
     Check dependencies of all the packages provided.
@@ -258,7 +258,8 @@
 
     # Outer loop tries to find a package from the pkg_info_all list to add if 
     # we're stuck because of unsatisfied dependencies
-    while { $updated_p && [exists_and_not_null pkg_info_all] } {
+    set updated_p 1
+    while { $updated_p } {
 
         # Inner loop tries to add another package from the install_pend list
         while { $updated_p && [exists_and_not_null install_pend]} {
@@ -302,8 +303,8 @@
 
         set updated_p 0
         
-        if { [exists_and_not_null install_pend] } {
-            # Okay, there are some packages that could be installed
+        if { [exists_and_not_null install_pend] && [llength $pkg_info_all] > 0 } {
+            # Okay, there are some packages that could not be installed
             
             # Let's find a package, which
             # - have unsatisfied requirements