--- __init__.yp	Sun May 12 11:18:53 2013
+++ __init__.py	Mon May 13 17:09:28 2013
@@ -3118,17 +3118,25 @@
     def mark_previous(self, index):
         """Return the name of the previous mark before INDEX."""
         return self.tk.call(self._w, 'mark', 'previous', index) or None
-    def peer_create(self, newPathName=None, cnf={}, **kw): # new in Tk 8.5
+    def peer_create(self, master=None, cnf={}, **kw): # new in Tk 8.5
         """Creates a peer text widget and any optional standard
         configuration options. By default the peer will have the same
         start and and end line as the parent widget, but these can be
         overriden with the standard configuration options."""
-        if newPathName is None:
-            basename = self.master._w if self.master._w != '.' else ''
-            newPathName = '%sp%d' % (basename, next(self.peer_count))
-        self.tk.call(self._w, 'peer', 'create', '.' + newPathName,
+        if master is None:
+            master = self.master
+        if 'name' not in cnf:
+            peername = '%s%s%d' % (self._name, '_peer', next(self.peer_count))
+        else:
+            peername = cnf['name']
+            cnf.pop('name')
+        if master == '.':
+            peerpath = '.' + peername
+        else:
+            peerpath = master._w + '.' + peername
+        self.tk.call(self._w, 'peer', 'create', peerpath,
                 *self._options(cnf, kw))
-        peer = _textpeer(self.master, newPathName)
+        peer = _textpeer(master, peername)
         return peer
     def peer_names(self): # new in Tk 8.5
         """Returns a list of peers of this widget (this does not include