diff --git a/sc/Emacs.sc b/sc/Emacs.sc
index d1dcb1e..5042046 100644
--- a/sc/Emacs.sc
+++ b/sc/Emacs.sc
@@ -237,6 +237,12 @@ Emacs {
 		Class.initClassTree(AbstractResponderFunc);
 		Class.initClassTree(OSCresponder);
 		Class.initClassTree(Server);
+
+		Platform.makeServerWindowAction = {|aServer, aWindow| aServer.makeEmacsWindow };
+		Platform.makeSynthDescWindowAction = {|aSynthDesc| aSynthDesc.makeEmacsWindow };
+		Platform.openHelpFileAction = {|aString| aString.openHelpFileEmacs };
+		Platform.openHTMLFileAction = {|aString| aString.openHTMLFileEmacs };
+
 		requestHandlers = IdentityDictionary.new;
 		requestAllocator = StackNumberAllocator(0, 128);
 		keys = IdentityDictionary.new;
diff --git a/sc/extBuffer.sc b/sc/extBuffer.sc
index aa98191..8eab30b 100644
--- a/sc/extBuffer.sc
+++ b/sc/extBuffer.sc
@@ -1,9 +1,4 @@
 + Server {
-
-	makeWindow { arg w;
-		this.makeEmacsWindow( w );
-	}
-
 	makeEmacsWindow { arg w;
 		var active, booter, killer, makeDefault, running, booting, stopped;
 		var recorder, scoper;
@@ -158,7 +153,7 @@
 }
 
 + SynthDesc {
-	makeWindow {
+	makeEmacsWindow {
 		var w, s, startButton, sliders;
 		var id, cmdPeriodFunc;
 		var synthDesc;
diff --git a/sc/extString.sc b/sc/extString.sc
index 0c63377..5feec7a 100644
--- a/sc/extString.sc
+++ b/sc/extString.sc
@@ -18,13 +18,13 @@
 
 + String{
 
-	openHelpFile {
+	openHelpFileEmacs {
 		if ( Emacs.initialized) {
 			Emacs.evalLispExpression(['sclang-find-help', this].asLispString);
 		}
 	}
 
-	openHTMLFile {
+	openHTMLFileEmacs {
 		if ( Emacs.initialized) {
 		//		this.findHelpFile;
 			Emacs.evalLispExpression(['w3m-browse-url', this].asLispString);