diff --git a/cwPresetSel.cpp b/cwPresetSel.cpp
index 0a4b657..6f6bc91 100644
--- a/cwPresetSel.cpp
+++ b/cwPresetSel.cpp
@@ -1409,6 +1409,26 @@ cw::rc_t cw::preset_sel::report( handle_t h )
   return rc;
 }
 
+cw::rc_t cw::preset_sel::report_presets( handle_t h )
+{
+  rc_t          rc = kOkRC;
+  preset_sel_t* p  = _handleToPtr(h);
+  unsigned beg_loc = 1;
+  frag_t* f = p->fragL;
+  
+  for(; f!=nullptr; f=f->link)
+  {
+    printf("%5i %5i ",beg_loc,f->endLoc);
+    for(unsigned i=0; i<f->presetN; ++i)
+      if( f->presetA[i].playFl || f->presetA[i].order!=0 )
+        printf("(%s-%i) ", p->presetLabelA[ f->presetA[i].preset_idx ].label, f->presetA[i].order);
+    printf("\n");
+    beg_loc = f->endLoc+1;
+  }
+  
+  
+  return rc;
+}
 
 
 cw::rc_t cw::preset_sel::translate_frags( const object_t* cfg )
diff --git a/cwPresetSel.h b/cwPresetSel.h
index bee0978..74a5d67 100644
--- a/cwPresetSel.h
+++ b/cwPresetSel.h
@@ -128,6 +128,7 @@ namespace cw
     rc_t write( handle_t h, const char* fn );
     rc_t read(  handle_t h, const char* fn );
     rc_t report( handle_t h );
+    rc_t report_presets( handle_t h );
 
     rc_t translate_frags( const object_t* obj );