diff --git a/sources/environment/dfmc/projects/common.dylan b/sources/environment/dfmc/projects/common.dylan
index 0a609f4c9..bb2a5a9da 100644
--- a/sources/environment/dfmc/projects/common.dylan
+++ b/sources/environment/dfmc/projects/common.dylan
@@ -17,16 +17,10 @@ define sealed method initialize
     (project-object :: <native-project-object>, #key) => ()
   next-method();
   add-new!(*open-projects*, project-object);
-end method initialize;
+end method;
 
 //--- Is there a way around making this sideways?
 define sealed sideways method open-projects
     () => (projects :: <sequence>)
-  let projects :: <stretchy-object-vector> = make(<stretchy-object-vector>);
-  for (project :: <native-project-object> in *open-projects*)
-    if (project-opened-by-user?(project))
-      add!(projects, project)
-    end
-  end;
-  projects
-end method open-projects;
+  choose(project-opened-by-user?, *open-projects*)
+end method;