diff --git a/src/Experimental.h b/src/Experimental.h
index 36d9c0ba3..df7eda025 100644
--- a/src/Experimental.h
+++ b/src/Experimental.h
@@ -143,6 +143,8 @@
 // Paul Licameli (PRL) 29 Nov 2014
 // #define EXPERIMENTAL_IMPROVED_SEEKING
 
+//#define EXPERIMENTAL_MIDI_IN
+
 // RBD, 1 Sep 2008
 // Enables MIDI Output of NoteTrack (MIDI) data during playback
 // USE_MIDI must be defined in order for EXPERIMENTAL_MIDI_OUT to work
diff --git a/src/prefs/MidiIOPrefs.cpp b/src/prefs/MidiIOPrefs.cpp
index 5b79d5ed1..24e03961b 100644
--- a/src/prefs/MidiIOPrefs.cpp
+++ b/src/prefs/MidiIOPrefs.cpp
@@ -189,11 +189,11 @@ void MidiIOPrefs::OnHost(wxCommandEvent & WXUNUSED(e))
 
    mPlay->Clear();
 #ifdef EXPERIMENTAL_MIDI_IN
-   mRecord->clear();
+   mRecord->Clear();
 #endif
 
    wxArrayStringEx playnames;
-   wxArrayString recordnames;
+   wxArrayStringEx recordnames;
 
    for (int i = 0; i < nDevices; i++) {
       const PmDeviceInfo *info = Pm_GetDeviceInfo(i);
@@ -227,7 +227,7 @@ void MidiIOPrefs::OnHost(wxCommandEvent & WXUNUSED(e))
       mPlay->Append(playnames[0], (void *) NULL);
    }
 #ifdef EXPERIMENTAL_MIDI_IN
-   if (mRecord->size() == 0) {
+   if (mRecord->GetCount() == 0) {
       recordnames.push_back(_("No devices found"));
       mRecord->Append(recordnames[0], (void *) NULL);
    }
@@ -236,7 +236,7 @@ void MidiIOPrefs::OnHost(wxCommandEvent & WXUNUSED(e))
       mPlay->SetSelection(0);
    }
 #ifdef EXPERIMENTAL_MIDI_IN
-   if (mRecord->size() && mRecord->GetSelection() == wxNOT_FOUND) {
+   if (mRecord->GetCount() && mRecord->GetSelection() == wxNOT_FOUND) {
       mRecord->SetSelection(0);
    }
 #endif