Index: abs_net.c
===================================================================
--- abs_net.c	(revision 10136)
+++ abs_net.c	(revision 10137)
@@ -104,8 +104,14 @@
 csch_anet_t *csch_anet_new(csch_abstract_t *abs, csch_hlevel_t *hlev, csch_ascope_t scope, const char *name_glob, const char *name_loc, int set_no_uname)
 {
 	csch_anet_t *net = calloc(sizeof(csch_anet_t), 1);
+	int short_name;
+	
+	/* create global nets with the short name; AUTO is taken GLOBAL: if we got
+	   here no other binding worked for it */
+	short_name = (scope == CSCH_ASCOPE_GLOBAL) || (scope == CSCH_ASCOPE_AUTO); 
+
 	csch_aobj_init(abs, &net->hdr, CSCH_ATYPE_NET);
-	net->name = rnd_strdup(name_glob);
+	net->name = rnd_strdup(short_name ? name_loc : name_glob);
 	net->name_loc = rnd_strdup(name_loc);
 	net->no_uname = set_no_uname;