Index: src/select.c
===================================================================
--- src/select.c	(revision 956)
+++ src/select.c	(revision 957)
@@ -439,10 +439,14 @@
       IncrementUndoSerialNumber ();
     }
 
-  if (len == NULL) {
-	  static long int non_zero;
-	  return (changed ? &non_zero : NULL);
+	if (len == NULL) {
+		static long int non_zero;
+		return (changed ? &non_zero : NULL);
 	}
+	else {
+		*len = used;
+		return list;
+	}
 }
 #undef append
 
@@ -459,6 +463,15 @@
 }
 
 /* ----------------------------------------------------------------------
+ * List all visible objects within the passed box
+ */
+long int *
+ListBlock (BoxTypePtr Box, int *len)
+{
+	return ListBlock_(Box, 1, len);
+}
+
+/* ----------------------------------------------------------------------
  * performs several operations on the passed object
  */
 void *