diff --git a/c5-i386-comps.xml b/c5-i386-comps.xml
index 34abac9..262f696 100644
--- a/c5-i386-comps.xml
+++ b/c5-i386-comps.xml
@@ -731,7 +731,7 @@
    <description xml:lang='zh_CN'>该软件包组包括软件包的最小集。对于安装小型路由器或防火墙机器较有用。</description>
    <description xml:lang='zh_TW'>這群組包括了最少的套件。這對建立小型路由器 / 防火牆電腦特別有用。</description>
    <default>true</default>
-   <uservisible>false</uservisible>
+   <uservisible>true</uservisible>
    <packagelist>
          <packagereq type="default">acpid</packagereq>
       <packagereq type="default">amtu</packagereq>
@@ -2883,7 +2883,7 @@
    <name xml:lang='zu'>Ukuxhasa Kokuxhumanisa Kokufona</name>
    <description/>
    <default>true</default>
-   <uservisible>false</uservisible>
+   <uservisible>true</uservisible>
    <packagelist>
          <packagereq type="default">isdn4k-utils</packagereq>
       <packagereq type="default">lrzsz</packagereq>
diff --git a/c5-x86_64-comps.xml b/c5-x86_64-comps.xml
index d97e707..fa400a5 100644
--- a/c5-x86_64-comps.xml
+++ b/c5-x86_64-comps.xml
@@ -1,4 +1,4 @@
-<?xml version='1.0' encoding='UTF-8'?>
+><location xml:base="media://1315223969.845465#4" href="CentOS/wvdial-1.54.0-5.2.2.1.i386.rpm"/><?xml version='1.0' encoding='UTF-8'?>
 <!DOCTYPE comps PUBLIC "-//CentOS//DTD Comps info//EN" "comps.dtd">
 <comps>
   <group>
@@ -731,7 +731,7 @@
    <description xml:lang='zh_CN'>该软件包组包括软件包的最小集。对于安装小型路由器或防火墙机器较有用。</description>
    <description xml:lang='zh_TW'>這群組包括了最少的套件。這對建立小型路由器 / 防火牆電腦特別有用。</description>
    <default>true</default>
-   <uservisible>false</uservisible>
+   <uservisible>true</uservisible>
    <packagelist>
          <packagereq type="default">acpid</packagereq>
       <packagereq type="default">amtu</packagereq>
@@ -2878,7 +2878,7 @@
    <name xml:lang='zu'>Ukuxhasa Kokuxhumanisa Kokufona</name>
    <description/>
    <default>true</default>
-   <uservisible>false</uservisible>
+   <uservisible>true</uservisible>
    <packagelist>
          <packagereq type="default">isdn4k-utils</packagereq>
       <packagereq type="default">lrzsz</packagereq>
diff --git a/tools/compsgen.sh b/tools/compsgen.sh
index 1665a20..475a26c 100755
--- a/tools/compsgen.sh
+++ b/tools/compsgen.sh
@@ -116,7 +116,20 @@ for xmlfile in $(ls $destdir/*.xml);
 	# groups/desc_$lang
 	for lang in $(echo "select * from languages;" |sqlite3 $sqlitedb|sed s/_arobas_/@/g);do for id in $(xmlstarlet sel -t -m "//comps/group" -v id -n $xmlfile);do desclang=$(xmlstarlet sel -t -m "//comps/group[id='$id']" -v "description[@xml:lang='$lang']" $xmlfile); langsql=$(echo $lang|sed s/@/_arobas_/g) ; isindb=$(echo "select desc_$langsql from groups where id='$id';"|sqlite3 $sqlitedb ) ; test "$isindb" = "$desclang" || (desclangsql=$(echo $desclang|sed s/"'"/"''"/g) ; echo "update groups set desc_$langsql='$desclangsql' where id='$id';"|sqlite3 $sqlitedb) ; done ; done
 	# groups/packagelist
-	for id in $(xmlstarlet sel -t -m "//comps/group" -v id -n $xmlfile); do packagelist=$(xmlstarlet sel -t -m "//comps/group[id='$id']" -c packagelist $xmlfile);isindb=$(echo "select packagelist from groups where id='$id';"|sqlite3 $sqlitedb ) ; test "$isindb" = "$packagelist" || (echo "update groups set packagelist='$packagelist' where id='$id' ;"|sqlite3 $sqlitedb ); done
+	for id in $(xmlstarlet sel -t -m "//comps/group" -v id -n $xmlfile); 
+	  do 
+	  packagelist=$(xmlstarlet sel -t -m "//comps/group[id='$id']" -c packagelist $xmlfile|sed '/packagelist/d')
+	  isindb=$(echo "select packagelist from groups where id='$id';"|sqlite3 $sqlitedb ) 
+	  if [ -z "$isindb" ] ; then
+	    echo "update groups set packagelist='$packagelist' where id='$id' ;"|sqlite3 $sqlitedb 
+	  else
+	    breakline='
+	    '
+	    newpkglist=${isindb}${breakline}${packagelist}
+	    toinsert=$(echo "$newpkglist"|sort|uniq)
+	    echo "update groups set packagelist='$toinsert' where id='$id' ;"|sqlite3 $sqlitedb 
+	  fi
+	done
 
 	
 #final done for the xmlfile loop
@@ -134,6 +147,9 @@ dbupdate() {
 	 for groupid in admin-tools base-x games gnome-desktop graphical-internet graphics java legacy-software-support office printing sound-and-video cluster-storage clustering xen ;do
 	    	echo "update groups set def='false' where id='$groupid';"|sqlite3 $sqlitedb
 	 done 
+	 for groupid in base dialup ;do
+	    	echo "update groups set uservisible='true' where id='$groupid';"|sqlite3 $sqlitedb
+	 done 
 	fi 
 
 }
@@ -188,8 +204,9 @@ for id in $(echo "select id from groups;"|sqlite3 $sqlitedb);do
 	fi
 
 	plist=$(echo "select packagelist from groups where id='$id';"|sqlite3 $sqlitedb ) 
+	echo "   <packagelist>" >>$outputxml
 	echo "   $plist" >>$outputxml
-
+    echo "   </packagelist>" >>$outputxml
 	echo "  </group>" >>$outputxml
 done